#!/usr/bin/perl

use warnings;
use File::Copy::Recursive qw(dircopy);
use FindBin qw($Bin);

my $dir1="$Bin/SrcDir/";
my $dir2="$Bin/DstDir/";
print "$Bin\n";
File::Copy::Recursive::dircopy($dir1, $dir2) or die "Copy failed: $!";
